function childQ=cross_overQ(choice,popsize,stringlength,dimension)% se tiene un vector choise de los mejores elementos de los universos 

for l=0:dimension-1
    childQb=[];
    for j=0:dimension-1 
        choi=choice(mod(l+j,dimension)+1,:);
        %choi=choices(l+1,:);
        childQa(mod(j,dimension)+1,:)=choi((mod(j,dimension))*stringlength+1:stringlength*(mod(j,dimension)+1))
        childQb=horzcat(childQb,childQa(mod(j,dimension)+1,:))

    end
    
    childQ(l+1,:)=childQb;
    %for n=1:dimension
        
    %    childQ(l+1,:)=horzcat(childQ(l+1,:),childQa(n,:))
        
    %end
end
%child1((j-1)*stringlength+1:j*stringlength)=[parent1((j-1)*stringlength+1:(j-1)*stringlength+cpoint(j)) parent2((j-1)*stringlength+cpoint(j)+1:j*stringlength)]; 
%    child2((j-1)*stringlength+1:j*stringlength)=[parent2((j-1)*stringlength+1:(j-1)*stringlength+cpoint(j)) parent1((j-1)*stringlength+cpoint(j)+1:j*stringlength)];
end